home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / JORF21-2.ZIP;1 / JORFFILS.ZIP / CHAREX.J < prev    next >
Encoding:
Text File  |  1993-07-05  |  836 b   |  23 lines
  1. CharEx:Start
  2.   New Count, Str1, Str2
  3.   Str1="This Text will Disappear"
  4.   Str2="This Text will Appear"
  5.   Win:Add ("Char Example", 10, 25, 2, 30, Here)
  6.   Str:Put (Str1)          | Show Str1
  7.   Win:Msg ("Press Enter to continue...")
  8.   Win:Pause               | And pause for Effect
  9.   Win:Msg                 |
  10.   Count = Str:Len (Str1)  | Set Counter
  11.   While (Count > 0)       | While GT Zero
  12.     Move:To (1,1)         |   First line
  13.     Char:Del (1)          |   Take 1 Away
  14.     Move:To (2,1)         |   Second line
  15.     Char:Ins (1)          |   Add one, Add char
  16.     Char:Put (To:Ascii (Str:At (Str2, Count, 1)))
  17.     --Count               |   Decrement Count
  18.     Win:Pause(5)          |   Pause 5/100 seconds
  19.   Win:Msg("Press Enter to continue...")
  20.   Win:Pause               | Done!
  21.   Return                  | Bye
  22.  
  23.